100 REM *******************************
110 REM *      CURSOR-STEUERUNG       *
120 REM *-----------------------------*
130 REM * NORBERT J. P E T E R   1986 *
140 REM *******************************
150 :
160 REM -------------------------------
170 REM    STEUERZEICHEN-VARIABLE
180 REM -------------------------------
190 :
200 LET CS$=CHR$(147):REM CLEAR SCREEN
210 LET HO$=CHR$(19) :REM CURSOR HOME
220 LET RE$=CHR$(18) :REM REVERS EIN
230 :
240 LET CR$=CHR$(29) :REM CURSOR RECHTS
250 LET CL$=CHR$(157):REM CURSOR LINKS
260 :
270 LET CU$=CHR$(17) :REM CURSOR UNTEN
280 LET CO$=CHR$(145):REM CURSOR OBEN
290 :
300 REM -------------------------------
310 REM  ERZEUGEN DER POSITIONS-STRINGS
320 REM -------------------------------
330 :
340 : FOR I=1 TO 4
350 :
360 :      LET CR$=CR$+CR$+CR$
370 :      LET CL$=CL$+CL$+CL$
380 :
390 :      LET CU$=CU$+CU$+CU$
400 :      LET CO$=CO$+CO$+CO$
410 :
420 : NEXT I
430 :
440 REM -------------------------------
450 :
460 : DIM L$(80),R$(80),O$(24),U$(24)
470 :
480 REM -------------------------------
490 :
500 : FOR S=1 TO 80      :REM   SPALTEN
510 :
520 :      LET L$(S)=LEFT$ (CL$,S)
530 :      LET R$(S)=LEFT$ (CR$,S)
540 :
550 : NEXT S
560 :
570 : FOR Z=1 TO 24      :REM   ZEILEN
580 :
590 :      LET O$(Z)=LEFT$ (CO$,Z)
600 :      LET U$(Z)=LEFT$ (CU$,Z)
610 :
620 : NEXT Z
630 :
640 REM -------------------------------
650 REM      CURSOR-POSITION-DEMO
660 REM -------------------------------
670 :
680 : FOR DURCHGANG=1 TO 30
690 :
700 :  PRINT CS$
710 :
720 :  ZEILE =INT(40*RND(.)):REM ZUFALL
730 :  SPALTE=INT(23*RND(.)):REM ZUFALL
740 :
750 : PRINT R$(ZEILE)+U$(SPALTE)+RE$">"
760 :
770 :    FOR ZEIT=1 TO 200:NEXT ZEIT
780 :
790 : NEXT DURCHGANG
800 :
830 REM ===============================